-- card: 6791 from stack: in
-- bmap block id: 7294
-- flags: 4000
-- background id: 4754
-- name: CSL Attendance
----- HyperTalk script -----
on rollingDemo
  answer "Attendance demo will take approx. 7 min." with "Cancel" or "OK"
  if it is "Cancel" then exit rollingDemo
  set the cursor to none
  lock screen
  go to card "Rolling Demo Instructions" of this background
  unlock screen with dissolve fast
  repeat until the mouseClick
  end repeat
  set the cursor to hand
  autoMouse moveMouse,420,60
  click at the loc of bg button id 7
  showInfo "Introduction",false
  wait 1 second
  set the cursor to hand
  put getButton() into buttonNum
  put the loc of background button buttonNum into buttonLoc
  autoMouse moveMouse,item 1 of buttonLoc,item 2 of buttonLoc
  click at the loc of background button buttonNum
  showInfo "Introduction",false
  wait 30
  set the cursor to hand
  autoMouse moveMouse,85,103
  send "mouseUp up" to bg button id 1
  wait 30
  autoMouse moveMouse,85,137
  send "mouseUp down" to bg button id 3
  wait 30
  autoMouse moveMouse,85,168
  send "mouseUp down" to bg button id 5
  wait 30
  autoMouse moveMouse,85,231
  send "mouseUp down" to bg button id 9
  wait 1 second
  autoMouse moveMouse,307,310
  click at the loc of background button "Field Trip"
  showInfo "Comments",false
  wait 30
  set the cursor to hand
  autoMouse menuMouse,6,5 -- Action Comment…
  wait 30
  autoMouse moveMouse,100,144
  tabKey
  type "Science"
  wait 2 seconds
  autoMouse moveMouse,167,239
  click at the loc of card button "OK"
  showInfo "View Order",false
  wait 1 second
  set the cursor to hand
  autoMouse menuMouse,5,3 -- By Grade
  wait 1 second
  autoMouse moveMouse,179,262
  click at the loc of card button "Scroll Right"
  wait 1 second
  autoMouse menuMouse,5,4 -- By Homeroom
  wait 1 second
  autoMouse moveMouse,179,262
  click at the loc of card button "Scroll Right"
  wait 1 second
  autoMouse moveMouse,233,262
  click at the loc of card button "Scroll Right"
  wait 1 second
  autoMouse moveMouse,293,262
  click at the loc of card button "Scroll Right"
  wait 1 second
  autoMouse menuMouse,5,1 -- All Students
  if the result is "Item not found" then -- test for XCMD bug
    send "doMenu All Students" to background "CSL Attendance Window"
  end if
  showInfo "Period Attendance",false
  wait 1 second
  set the cursor to hand
  autoMouse menuMouse,4,1 -- Class Directory
  if the result is "Item not found" then -- test for XCMD bug
    send "Class Directory" to background "CSL Attendance Window"
  end if
  wait 1 second
  autoMouse moveMouse,233,303
  click at the loc of background button "Scroll Bar"
  wait 1 second
  autoMouse moveMouse,260,303
  click at the loc of background button "Scroll Bar"
  wait 1 second
  autoMouse moveMouse,292,303
  click at the loc of background button "Scroll Bar"
  wait 1 second
  autoMouse moveMouse,226,107
  click at the loc of bg button 1
  wait 1 second
  autoMouse moveMouse,416,101
  send "mouseUp up" to bg button id 37
  wait 30
  autoMouse moveMouse,416,133
  send "mouseUp down" to bg button id 53
  wait 30
  autoMouse moveMouse,416,165
  send "mouseUp down" to bg button id 69
  wait 30
  autoMouse moveMouse,416,181
  send "mouseUp down" to bg button id 77
  wait 30
  autoMouse moveMouse,416,229
  send "mouseUp down" to bg button id 101
  wait 1 second
  autoMouse moveMouse,63,293
  click at the loc of background button "Absent Excused"
  showInfo "Period to Daily",false
  wait 1 second
  set the cursor to hand
  autoMouse menuMouse,3,9 -- Period to Daily Link…
  showInfo "Period to Daily Window",true
  showInfo "Calculate Daily",true
  wait 1 second
  set the cursor to hand
  autoMouse moveMouse,314,309
  click at the loc of card button "Cancel"
  wait 30
  autoMouse menuMouse,6,8 -- Calculate Daily From Period…
  wait 1 second
  autoMouse menuMouse,5,1 -- All Students
  if the result is "Item not found" then -- test for XCMD bug
    send "doMenu All Students" to background "CSL Attendance Window"
  end if
  showInfo "Single Student",false
  wait 1 second
  set the cursor to hand
  autoMouse moveMouse,59,118
  send "mouseUp up" to bg button id 2
  wait 1 second
  autoMouse menuMouse,5,8 -- Single Student
  showInfo "Report Cards",false
  wait 1 second
  set the cursor to hand
  autoMouse menuMouse,5,1 -- All Students
  if the result is "Item not found" then -- test for XCMD bug
    send "doMenu All Students" to background "CSL Attendance Window"
  end if
  wait 1 second
  autoMouse menuMouse,6,7 -- Upload Term Attendance…
  showInfo "Upload Term Attendance",true
  wait 1 second
  set the cursor to hand
  autoMouse moveMouse,364,295
  click at the loc of card button "Cancel"
  showInfo "Attendance Reports",false
  wait 1 second
  set the cursor to hand
  autoMouse menuMouse,7,1 -- Today's Attendance…
  if the result is "Item not found" then -- test for XCMD bug
    send "doMenu Today's Attendance…" to background "CSL Attendance Window"
  end if
  wait 1 second
  autoMouse moveMouse,153,177
  click at the loc of card button id 5
  wait 1 second
  autoMouse moveMouse,193,296
  click at the loc of card button "Print"
  wait 2 seconds
  autoMouse moveMouse,18,30
  click at the loc of card button "Close"
  wait 1 second
  autoMouse menuMouse,7,1 -- Today's Attendance…
  if the result is "Item not found" then -- test for XCMD bug
    send "doMenu Today's Attendance…" to background "CSL Attendance Window"
  end if
  wait 1 second
  autoMouse moveMouse,193,296
  click at the loc of card button "Print"
  wait 1 second
  autoMouse moveMouse,191,328
  click at the loc of card button "Scroll right"
  wait 2 seconds
  autoMouse moveMouse,199,328
  click at the loc of card button "Scroll right"
  wait 2 seconds
  autoMouse moveMouse,206,328
  click at the loc of card button "Scroll right"
  wait 2 seconds
  autoMouse moveMouse,212,328
  click at the loc of card button "Scroll right"
  wait 2 seconds
  autoMouse moveMouse,18,30
  click at the loc of card button "Close"
  showInfo "Exception Report",false
  wait 1 second
  set the cursor to hand
  autoMouse menuMouse,7,3 -- Exception Report…
  wait 1 second
  autoMouse moveMouse,120,101
  send "mouseUp up" to card button id 8
  wait 30
  autoMouse moveMouse,120,116
  send "mouseUp down" to card button id 9
  wait 30
  autoMouse moveMouse,120,130
  send "mouseUp down" to card button id 10
  wait 1 second
  autoMouse moveMouse,120,218
  send "mouseUp up" to card button id 14
  wait 30
  autoMouse moveMouse,120,231
  send "mouseUp down" to card button id 15
  wait 1 second
  autoMouse moveMouse,344,244
  click at the loc of card button "Select all"
  wait 2 second
  autoMouse moveMouse,201,38
  click at the loc of card button "Periods"
  wait 2 second
  autoMouse moveMouse,291,38
  click at the loc of card button "Exceptions"
  wait 1 second
  autoMouse moveMouse,154,160
  click at the loc of card button id 11
  wait 1 second
  autoMouse moveMouse,145,194
  tabKey
  type "1"
  tabKey
  type "4"
  wait 1 second
  put "Feb 01, 1989" into card field "From"
  wait 1 second
  put "Feb 28, 1989" into card field "To"
  wait 1 second
  autoMouse moveMouse,323,142
  click at the loc of card button id 14
  wait 1 second
  autoMouse moveMouse,323,284
  click at the loc of card button id 20
  wait 2 second
  autoMouse moveMouse,382,38
  click at the loc of card button "Format"
  wait 1 second
  autoMouse moveMouse,153,162
  click at the loc of card button "Attendance - List format"
  wait 1 second
  autoMouse moveMouse,193,228
  click at the loc of card button "Sorted by homeroom"
  wait 1 second
  autoMouse moveMouse,184,281
  click at the loc of card button "Print"
  wait 3 seconds
  autoMouse moveMouse,18,30
  click at the loc of card button "Close"
  showInfo "Other Reports",false
  autoMouse menuMouse,1,1 -- About
  if the result is "Item not found" then -- test for XCMD bug
    send "doMenu About" to background "CSL Attendance Window"
  end if
end rollingDemo

on showInfo fieldName,cardPict
  lock screen
  set the cursor to none
  restoreMenuBar false
  grayPicture cardPict
  installMenuBar 1020,1021,1022,1023,1024,1025,1026,1027
  show card field fieldName
  unlock screen with dissolve
  put the secs into temp
  repeat until the mouseClick
    if (the secs - temp) > 30 then show card field "Continue"
  end repeat
  lock screen
  hide card field fieldName
  hide card field "Continue"
  pop card
  unlock screen with dissolve
  if the optionKey is down then exit to HyperCard
end showInfo


-- part contents for background part 5
----- text -----
Attendance

-- part contents for background part 6
----- text -----
Mac School provides Attendance clerks with an easy-to-use, fast and powerful Attendance module.  Attendance can either be entered manually and now, with the multi-user environment, at multiple work-stations at the same time or via optical scanners such as ScanTron, Chatsworth, and NCS scanners.

Attendance can be entered on a daily, semi-daily or period by period basis.  The school can define up to 128 daily and 128 period attendance codes.   The value of the code and whether it should be by default an excused or an unexcused attendance code is also school defined.  Comments can be kept defining a reason for each student's absence and printed out in reports.

Attendance reporting is very flexible!  Numerous attendance reports have already been built into the system such as:  Absent Students’ Phone List, Today’s List of Absent Students, Students’ Birthdays Report, Daily, Weekly and Monthly reports for selected students, Statistical Summaries, and many many more!  It provides reports for administrative purposes and highlights attendance trends.  In fact, it tells you everything about attendance that you would want to know!
 
Individual State Attendance reports are added without extra charge if the ‘hard wired’ reports are not satisfactory and the report cannot be reproduced with the Report Manager.

Mac School can also download a list of absent students’ telephone numbers to an automatic dialer - ROLL•CALL.

A capability soon to be released is the ability for a teacher to enter period attendance over the network on his/her classroom //GS.